home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 05 / 1 / DISK0510.ZIP / WORDS < prev   
Text File  |  1985-08-08  |  512b  |  15 lines
  1. PROGRAM WORDS;  {this shows how to program the computer to write to the screen}
  2. VAR
  3.   COUNT : INTEGER;
  4.   N       : INTEGER;
  5. BEGIN
  6.   WRITELN('this is the WORDS program;');
  7.   WRITELN('you can use it to learn about WRITELN statements.');
  8.   WRITE('type a number between 5 and 10 followed by <CR>:');
  9.   READLN(COUNT);              {your turn to tell the program something}
  10.   FOR N := 1 TO COUNT DO
  11.     WRITELN('the value of N is:',   N);
  12.   WRITELN('-------------all done now!-------------');
  13. END.
  14.  
  15.